5 POKE783,PEEK(783)AND254
10 REM *** NUTRITION INFORMATION
20 REM ***
30 REM *** FACT OR FALLACY?
40 REM ***
50 REM *** BY JULIE EKBLAW, R.D.
60 REM ***
70 REM *** TRANSLATED FOR THE 64 BY
80 REM ***
82 REM *** DONNA K. WOODY
83 REM ***
85 REM *** TITLE PAGE
90 PRINTCHR$(147):POKE53280,1:POKE53281,7:PRINTCHR$(144):POKE53272,23
95 PRINTCHR$(8)
100 POKE781,4:POKE782,10:SYS65520
110 PRINT"[206][213][212][210][201][212][201][207][206] [201][206][198][207][210][205][193][212][201][207][206]"
120 POKE781,8:POKE782,12:SYS65520
130 PRINT"[198][193][195][212] [207][210] [198][193][204][204][193][195][217]?"
140 POKE781,13:POKE782,10:SYS65520
150 PRINT"BY [202]ULIE [197]KBLAW, [210].[196]."
151 POKE781,18:POKE782,8:SYS65520
152 PRINT"[212]RANSLATED FOR THE 64 BY"
153 POKE781,20:POKE782,13:SYS65520
154 PRINT"[196]ONNA [203]. [215]OODY"
160 GOSUB10050
170 V=6:T$="[195]ONFUSED BY ALL THE HYPE ON HEALTH AND":GOSUB10000
180 V=8:T$="NUTRITION PRODUCTS?":GOSUB10000
190 GOSUB10050
200 V=6:T$="[194]EFORE YOU SPEND YOUR HARD-EARNED $ ON A":GOSUB10000
210 V=8:T$="PRODUCT THAT COULD BE USELESS AND EVEN":GOSUB10000
220 POKE781,11:POKE782,16:SYS65520:PRINT"[196][193][206][199][197][210][207][213][211]"
260 V=14:T$="CONSIDER THE FOLLOWING:":GOSUB10000
270 GOSUB10050
280 V=6:T$="[201]S THE INFORMATION BASED ONLY ON":GOSUB10000
290 V=8:T$="PERSONAL TESTIMONIALS?":GOSUB10000
300 V=12:T$="[197]XAMPLE:  '[201] WEIGHED 320 LBS.  [201] TRIED":GOSUB10000
310 V=14:T$="ANY AND EVERY DIET, BUT NOTHING WORKED":GOSUB10000
320 V=16:T$="UNTIL [201] USED PRODUCT [216].  [201] LOST 180":GOSUB10000
330 V=18:T$="LBS. AND FINALLY FOUND HAPPINESS.'":GOSUB10000
340 GOSUB10050
350 V=6:T$="[196]OES THE AD CLAIM THAT A NUTRIENT,":GOSUB10000
360 V=8:T$="FOOD, OR PRODUCT CAN CAUSE OR CURE":GOSUB10000
370 V=10:T$="A DISEASE OR CONDITION?":GOSUB10000
380 V=14:T$="[197]XAMPLE:  '[193] LOW FAT, LOW SODIUM DIET":GOSUB10000
390 V=16:T$="PREVENTS CANCER AND KIDNEY DISEASE.'":GOSUB10000
400 GOSUB10050
410 V=6:T$="[201]S THE FOOD OR PRODUCT RECOMMENDED AS":GOSUB10000
420 V=8:T$="BEING SUPER OR MAGICAL?":GOSUB10000
430 V=12:T$="[197]XAMPLE: '[197]AT ONLY NATURAL FOODS.'":GOSUB10000
440 V=16:T$="'[197]ATING ORANGES WILL PREVENT THE":GOSUB10000
450 V=18:T$="COMMON COLD.'":GOSUB10000
460 GOSUB10050
470 V=6:T$="[196]OES THE INFORMATION RECOMMEND AVOIDING":GOSUB10000
480 V=8:T$="A FOOD OR FOOD GROUP?":GOSUB10000
490 V=12:T$="[197]XAMPLE:  '[196]O NOT EAT BREAD WHILE TRYING":GOSUB10000
500 V=14:T$="TO LOSE WEIGHT.'":GOSUB10000
510 GOSUB10050
520 V=6:T$="[201]S THERE A PROMISE OF A QUICK AND":GOSUB10000
530 V=8:T$="ASTONISHING CURE?":GOSUB10000
540 V=12:T$="[197]XAMPLE:  '[197]AT ALL YOU WANT, BUT STILL":GOSUB10000
550 V=14:T$="SHED THOSE POUNDS, WITHOUT EXERCISING.'":GOSUB10000
560 GOSUB10050
570 V=6:T$="[196]OES THE PROMOTION USE THREATS OF":GOSUB10000
580 V=8:T$="ILLNESS OR DISEASE?":GOSUB10000
590 V=12:T$="[197]XAMPLE:  '[215]HAT YOU ARE PRESENTLY EATING":GOSUB10000
600 V=14:T$="IS LIKELY TO INCREASE YOUR RISK OF":GOSUB10000
610 V=16:T$="CANCER.'":GOSUB10000
620 GOSUB10050
630 V=6:T$="[201]S THERE A SUGGESTION TO EAT A BIZARRE,":GOSUB10000
640 V=8:T$="UNBALANCED DIET?":GOSUB10000
650 V=12:T$="[197]XAMPLE:  '[197]AT ALL THE CELERY YOU WANT":GOSUB10000
660 V=14:T$="FOR THREE DAYS.'":GOSUB10000:GOSUB10050
670 V=6:T$="[201]S THERE EXCESSIVE CRITICISM OF THE":GOSUB10000
680 V=8:T$="THE FOOD SUPPLY AND HEALTH":GOSUB10000
690 V=10:T$="PROFESSIONALS?":GOSUB10000
700 V=14:T$="[197]XAMPLE:  '[198]OODS LOSE MOST OF THEIR":GOSUB10000
710 V=16:T$="NUTRIENTS DURING SHIPPING AND":GOSUB10000
720 V=18:T$="THEREFORE ARE NUTRITIONALLY INADEQUATE.'":GOSUB10000
730 GOSUB10050
740 V=8:T$="'[200]EALTH PROFESSIONALS PRESCRIBE DRUGS":GOSUB10000
750 V=10:T$="AND FOODS THAT INTERFERE WITH THE":GOSUB10000
760 V=12:T$="BODY'S OWN HEALING PROCESS.  [193]VOID":GOSUB10000
770 V=14:T$="TREATMENT BY HEALTH PROFESSIONALS":GOSUB10000
780 V=16:T$="NO MATTER WHAT.'":GOSUB10000:GOSUB10050
790 V=6:T$="[196]OES THE WRITER PRESENT ONE-SIDED":GOSUB10000
800 V=8:T$="BIASED INFORMATION AND DRAW CONCLUSIONS":GOSUB10000
810 V=10:T$="FOR YOU?":GOSUB10000
820 V=14:T$="[197]XAMPLE:  '[212]HERE IS ONLY ONE WAY TO":GOSUB10000
830 V=16:T$="STAY HEALTHY.'":GOSUB10000:GOSUB10050
840 V=6:T$="[193]RE THERE GENERAL, VAGUE STATEMENTS":GOSUB10000
850 V=8:T$="THAT COULD BE MISLEADING?":GOSUB10000
860 V=12:T$="[197]XAMPLE:  '[193]LL FOOD ADDITIVES ARE BAD.'":GOSUB10000:GOSUB10050
870 V=6:T$="[193]RE THERE GENERAL REFERENCES MADE TO":GOSUB10000
880 V=8:T$="HEALTH PROFESSIONALS?":GOSUB10000
890 V=12:T$="[197]XAMPLE:  '[216] IS KNOWN BY PHYSICIANS AND":GOSUB10000
900 V=14:T$="NUTRITIONISTS IN THE RESEARCH":GOSUB10000
910 V=16:T$="COMMUNITY.'":GOSUB10000:GOSUB10050
920 V=6:T$="[196]O YOU SEE A PROFIT MOTIVE?":GOSUB10000
930 V=10:T$="[197]XAMPLE:  '[211]END $39.95 FOR YOUR FIRST":GOSUB10000
940 V=12:T$="MONTH'S SUPPLY OF OUR MIRACULOUS":GOSUB10000
950 V=14:T$="PRODUCT.'":GOSUB10000:GOSUB10050
960 V=6:T$="[201]F YOU ANSWERED YES TO EVEN ONE OF":GOSUB10000
970 V=8:T$="THESE QUESTIONS, THINK AGAIN BEFORE YOU":GOSUB10000
980 V=10:T$="BUY OR PARTICIPATE.":GOSUB10000:GOSUB10050
990 V=6:T$="[210]ELIABLE HEALTH AND NUTRITION":GOSUB10000
1000 V=8:T$="INFORMATION IS BASED ON SCIENTIFIC":GOSUB10000
1010 V=10:T$="RESEARCH WHICH HAS BEEN DONE TO":GOSUB10000
1020 V=12:T$="SPECIFICALLY PROVE, TRUE OR FALSE, THE":GOSUB10000
1030 V=14:T$="THEORY IN QUESTION.  [201]T SHOULD PRESENT":GOSUB10000
1040 V=16:T$="BOTH THE PROS AND CONS TO BE OBJECTIVE":GOSUB10000
1050 V=18:T$="AND UNBIASED.":GOSUB10000:GOSUB10050
1060 V=6:T$="[210]ELIABLE INFORMATION HAS A SENSIBLE":GOSUB10000
1070 V=8:T$="MESSAGE THAT ALLOWS THE READER TO":GOSUB10000
1080 V=10:T$="FORMULATE CONCLUSIONS BASED ON THE":GOSUB10000
1090 V=12:T$="FACTS.":GOSUB10000:GOSUB10050
1100 V=6:T$="[201]F IN DOUBT, THE REGISTERED DIETITIANS":GOSUB10000
1110 V=8:T$="([210].[196].'S) IN YOUR COMMUNITY WOULD BE":GOSUB10000
1120 V=10:T$="HAPPY TO ASSIST YOU.  [212]HEY CAN BE":GOSUB10000
1130 V=12:T$="CONTACTED AT HOSPITALS, NUTRITION":GOSUB10000
1140 V=14:T$="DEPTS. AT COLLEGES AND UNIVERSITIES,":GOSUB10000
1150 V=16:T$="HEALTH DEPTS., COOPERATIVE EXTENSIONS,":GOSUB10000
1160 V=18:T$="AND [196]IAL-[193]-[196]IETITIAN, IF AVAILABLE.":GOSUB10000:GOSUB10050
9990 GOTO 63000
10000 REM *** CENTERING SUBROUTINE
10010 H=(40-LEN(T$))/2
10020 POKE781,V:POKE782,H:SYS65520:PRINTT$
10030 RETURN
10040 REM *** PRESS RETURN SUBROUTINE
10050 POKE781,23:POKE782,8:SYS65520:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE.";
10060 POKE198,0:WAIT198,1:GETA$:PRINTCHR$(147):RETURN
63000 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:END